home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
popvid.zip
/
WHATDEMO.PRG
< prev
next >
Wrap
Text File
|
1993-01-04
|
579b
|
21 lines
memvar='ldpopvid/'
beep=chr(7)
CLEAR
? beep
* call vidpop with the external 'POP' command bracketed with beeps for timing
run pop popload
? beep
* clear the screen and do it again with 'POPVID.OBJ' linked in
? inkey(2) && first, waste a couple of seconds
clear
? beep
CALL popvid with memvar && call with a memvar command
? beep
set console off && hide the result of the ?
? inkey(2) && waste aother couple of seconds
set console on
? beep
CALL popvid with 'windpop/' && call with a direct command string
? beep
RETURN